home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.3.bas < prev    next >
BASIC Source File  |  1996-12-24  |  556b  |  17 lines
  1. 100  REM +-------------------+ 
  2. 110  REM !                   !
  3. 120  REM ! Euklid f}r B < 37 !
  4. 130  REM !                   ! 
  5. 140  REM +-------------------+
  6. 150  REM 26 Buchstaben + 10 Ziffern
  7. 160  DIM S$(30):O = 55: ONERR  GOTO 170: REM 65=10+55=ASC("A")
  8. 170  HOME :I = 0: INPUT "NEUE BASIS? ";B
  9. 180  INPUT "WELCHE ZAHL? ";Z
  10. 190 S =  INT(Z/B)
  11. 200 T = Z -B *S
  12. 210 S$(I) =  STR$(T)
  13. 220  IF T >9  THEN S$(I) =  CHR$(T +O): REM A=10, B=11 usw.
  14. 230 Z = S: IF Z = 0  THEN 250
  15. 240 I = I +1: GOTO 190
  16. 250  PRINT : FOR J = I TO 0  STEP  -1
  17. 260  PRINT S$(J);: NEXT